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DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE . AND COPIED 
; IN ACCORDANCE WITH uC AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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; MODULE FUNCTION 
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This module contains the command parse and execution networks for 
the CANCEL command. 
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34 ' AUTHOR: 
5 35 : David Plummer 
37 3$ !' CREATION DATE: 
8 38 ! 9-Jul-80 
39 39 ‘ 
40 0040 ! MODIFIED BY: 
41 0041 : Richard Title 16-Sep-81 
$s O0e§ : 
4 004 ' REVISION HISTORY: 
44 Boee ‘ 
45 045 : 3-3) 1 woe) RT Implemented CANCEL SOURCE command 
r4 B06 : -02 07-MAY-82 RT Implemented CANCEL DEVELOPER 
48 rt 
$3 rt REQUIRE *SRC$:DBGPROLOG.REQ'; 
i : : LIBRARY ‘LIB$:DBGGEN.L32'; 
3g 1 FORWARD ROUTINE 
54 1 DBGSNPARSE _CANCEL ! ATN parse network for CANCEL 
55 188 DBGSNEXECUTE_CANCEL; ' Command execution network for CANCEL 
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7 EXTERNAL ROUTINE 
6? 


p-198e 12:17:09 EDeBUG. SRCSDBGNCANCL-039; 1 


DBGSEVENT_SHOW_CANCEL_SYNTAX 
DBGSEVENT— SHOW CANCEL SEMANTICS, 
DBGSE VENT CANCEL L. 
DBGSAST_SETSCOP 7 NOVALUE, 


ANMOD, 
DBGSNSAVE_STRING, 
DBGSIS_IT“ENTRY, 
DBGSGET_TEMPMEM, 
DBGSSET“MOD_DEF 

RADIX, 


' Syntax for SHOW! CANCEL BREAK! TRACE 
' Semantics for SHOW: CANCEL BREAK: TR 
' CANCEL/ALL eventpoints 

' Cancels (and sets) user scope 


WATCH 
C 


ACE: WATCH 


' Cancels a module 
' Saves a — form the input stream 
' Returns true if address = entry point 
' Allocates dynamic Listed storage 
' Resets mode level to default 
ad ! Translate radix 

rH to input 


' 

' 

' 

' 

' 

' 

' 

' 

' 

DBGSNGET_ TRANS 
DBGSSCR_EXECUTE_CANDISP_CMD:NOVALUE,! Execute the CAN LAY command 

CANWIND= CMD : NOVALUE , ! 

' 

' 

‘ 

1 

' 

' 

' 

' 

' 
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DBGSSCR_ IND :NOVALUE,! Execute the CANC NDOW command 
71 DBGSSCR_PARSE_CANDISP_CAD: NOVALUE, ! Parse the CANCEL DISPLAY command 
7 DBGSSCR_PARSE CANWIND_CMD: NOVALUE, Parse the CANCEL WINDOW command 
7 DBGSSRC_ CANCEL SOURCE: NOVALUE, ' Implements CANCEL SOURCE command 
74 DBGSSTA_GETSOURCE ' Looks up module rst pointer 
75 DBGSSET-STP_DEF: NOVALUE, i Sets default step 
76 DBGSNSYATAX” ERROR, ' Formats a syntax error 
77 DBGSNNEXT WORD ' Returns the next word of input 
78 DBGSNPARSE ADDRESS ! Obtains an address expression descriptor 


! Parse an integer 


DBGSNSAVE _BECIMAL_INTEGER, 
3 ! Constructs a message argument vector 


DBGSNMAKE_ARG_VECT 


——— 
DBG$GB_RADIX: Ab 8 BYTE), 
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1 
1 & ! Radix settings 
1 DBGSGL_DEVELOPER: BITV 
1 TYP 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

} 

1 

1 

1 

1 

1 

1 

1 
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CTOR, ' Developer switches 
DBGSGL_GBLTY ! Override type 
DBG$GW-GBLLNGTH: WORD, i Override length 
ae ! Default type 
' Default Length 


' User runframe 
! Flag for resignaling exceptions 
! Context word 
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LITERAL 
Legal verb composites 
CANCEL_MINIMUM 
LALL 
CANCEL_BREAK 


CANCEL_BREAK_ALL 
CANCEL _EXCEPTION_ BREAK 


Also EVENTSK_CANCEL_BREAK 
Also EVENTSK_CANCEL_BREAK_EXC 
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Also EVENTSK_CANCEL_TRACE 
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WAT Also EVENTSK_CANCEL_WATCH 
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GLOBAL ROL .NE DBGSNPARSE_CANCEL (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


14 
! FUNCTIONAL DESCRIPTION: 


This routine comprises the ATN parse network for the CANCEL verb. 

A qennene execution tree is constructed during the parsing — 
which is used as input to the command execution network following 

a complete and successful parse. Upon detection a a syntax error, 

@ message argument vector is constructed and returned. 


FORMAL PARAMETERS: 


INPUT_DESC - A_longword containing the address of a standard 
ASCII string descriptor corresponding to the input 
command 

VERB_NODE - A longword gqnsetatns the address of the command 
verb node which is the head node of the command 


execution tree 
MESSAGE _VECT - The address of a longword to contain the address of 
a standard message argument vector upon detection of 
errors 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


The command execution tree corresponding to the input command is constructed 
on success. 


On failure, a message argument vector is constructed and returned. 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUCCESS (1) - Success. Command parsed and execution tree made. 


STSSK_SEVERE (4) - Failure. No tree constructed. Message argument 
vector constructed and returned. 


SIDE EFFECTS: 
NONE 


BEGIN 


P 
VERB_NODE: REF DBGSVERB_NODE; ! Pointer to command Verb Node 
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; 5 LOCAL 

; Link; 

3 verb_node Cdbg$b_verb_composite] = congel developers 

; 9 Link-= verb_node[dbg$l_verb_object_ptrJ; 

: 240 IF NOT dbgS$hmatch(.input_desc, dbgScs_cr, 1) 

; 241 THEN 

3; 26 4 BEGIN 

: 26 4 WHILE true DO 

; 246 5 BEGIN 

; 245 IF NOT dbg$nsave_decimal_integer(.input_desc, moun_node[dbg$l_noun_valuel, 

> 24 -message_vect) 

; 26 THEN 
3 rt 2 RETURN sts$k_severe; 
; 250 5 IF 4. Roun node) doest noun.valued LSS 9 OR 

3 go) 3 (.noun_nodeldbg$l_noun_value] GTR 31) 

: 28 THEN 

; 27 $ ro t = dbg$nmak t(dbg$_bit ) 

3 emessage_vect = nmake_arg_vec _bitrange); 

3 2? 3 RETURN’ sts$k. severe; . = 

3 28 2 END; 
3: 258 5 Link = noun_node(dbg$l_noun_Link); 
; 259 5 IF NOT dbg$nmatch(.input_desc, dbg$cs_comma, 1) 
; 260 5 THEN 
; 261 6 BEGIN ; 

; $06 6 IF NOT dbg$nmatch(.input_desc, dbg$cs_cr, 1) 

3; 2 6 THEN 

3; 264 7 BEGIN 

; $e? 7 message _vect = dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 

: 266 7 RETURN sts$k_severe; 

; 267 7 END 

3 $o8 7 

; 269 6 LSE 

; 270 6 EXITLOOP; 

; 271 6 

3 218 : END; 

> 276 5 noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 

3: 27s 5 .Link = .moun_node; 

3 A} : ND; ! End of WHILE loop. 

: 2? 409 END; 

3 8 vats 

; -280 0411 elink = 0; 

et eo 

: BS 14 

3; 284 15 

; 285 $i¢ Parse the CANCEL DISPLAY command. 

3 8? 213 CDOESIA TCH. SHPUT DERE, DBGSCS_DISPLAY, 3)]: 

; 289 420 VERB_NODECDBG$B_VERB_COMPOSITE] = CANCEL_DISPLAY; 

; +s be 3 43 SCR_PARSE_CANDISP_CMD(.INPUT_DESC, .VERB_NODE); 
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ee | 


H Parse the CANCEL EXCEPTION BREAK command. | 
Cabgs.match (.input_desc, dbg$cs_exception, 1)] : ! CANCEL EXCEPTION BREAK | 


} We look for BREAK 
if NOT dbg$nmatch (.input_desc, dbg$cs_break, 1) 


BEGIN 
cmessage_vect = 


VEWN—"OOONOUSWw 


RERRLRRRLRRRERR 


i $38 

> 294 

: 295 

: 29 

; 298 

>; 299 

; 300 

$03 | 
; $8 4 
: Be 4 
: $09 3 : IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) | 
; 3 5 THEN | 
: be rd 5 dbg$nmake_arg_vect (dbg$_needmore) 

; if oce 5 dbg$nsyntax_error (dbg$nnext_word (.input_desc)) | 
: ig 04435 4 RETURN sts$k_severe; 
Ro hey ms | 
: 318 0446 verb_node Cdbg$b_verb_composite] = cancel_exception_break; 

: 3? beck 3 | 
: 318 0449 ; : Reset the noun and adverb pointers. | 
; 320 0451 3 verb_node dbg$l_verb_object_ptr] = 0; 
; 321 0452 3 verb_node Cdbg$l_verb_adverb_ptr] = 0; 
Bo BEG wz: | 
; $5¢ Be 32 5 idbgtemstch (.input_desc, dbg$cs_mode, 1)] : ! CANCEL MODE 
; | 
3 356 0457 verb_node Cdbg$b_verb_composite] = cancel_mode; 
iB BRE os 
; 329 0460 Cdbg$nmatch (.input_desc, dbg$cs_module, 4)] : ! CANCEL MODULE | 
; 3 ee BEGIN 

; 32 0465 ! Check for CANCEL MODULE/ALL | 
; $ ps0> if _dbgSnmatch (.input_desc, dbg$cs_slash, 1) 
bei nig 

; 38 0469 4 DBGSCS_ALL = UPLIT BYTE (3, "ALL"; 

: 0 0471 4 IF NOT dbg$nmatch (.input_desc, dbg$cs_all, 1) 

Bo RAS Macc 

: 343 47% 3 emessage_vect = 

3 rf} ote $ tt ego eenmatch (.input_desc, dbg$cs_cr, 1) 

; re “4! 6 dbg$nmake_arg_vect (dbg$_needmore) 

: 48 ba78 : dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
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; 349 0480 5 RETURN sts$k_severe; 

H 3} oe 1 Z END; 

3 § 4 5 4 verb_node Cdbg$b_verb_composite] = cancel_module_all; 
; 0484 4 END 

3 ee 0485 4 

; 5 8 § 3 ELSE 

H 56 4 & BEGIN 

: 336 0489 ive h dule none List 

; ! We have a module name List to parse 

: 339 0490 & i . 

; 360 491 4 BIND 

; 61 492 & DBGSCS_COMMA = UPLIT BYTE (1, dbg$k_comma); 

; o¢ 04935 4 LOCAL 

; 36 eee: ? LINK; ! Temporary pointer 

3 $e 0496 4 ! Accept strings and commas 

3 308 0497 4 ' 

3; Ser 0498 4 WHILE true 

; 368 0499 4 0 

; 369 0500 5 BEGIN 

: 370 0501 5 

: 371 050¢ 5 IF NOT DBGSNSAVE_STRING (.input_desc, 

s 2f 0503 5 noun_node CdbgSt _noun.velued. 
te 0504 5 -message_vect 

; 374 0505 5 EN 

; STs 0506 5 RETURN sts$k_severe; 

; 376 0507 5 

. Bee 0508 5 

; 378 0509 5 ! Check for a comma 

3; sy 0510 5§ : 

; 380 0511 5 IF NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 
; 381 Bat¢ 5 

; $08 05135 5 EXITLOOP; 

; 0514 5§ 

; 384 0515 5 ; 
3; 38S 0316 5 ! Create a new noun node to hold the next string 
3 306 0517 5 ' 

: 7 0518 5 Link = noun_node (dbg$l_noun_Link]; 

; 388 0519 5 noun_node = dbg$get_tempmem Tdbg$k_noun_node_ size); 
; 389 0520 5 -Link = .moun_node; 

; 7 0521 5 

: 391 05 ¢ & END; ! End of loop 

; be & 

; 526 4 

: 394 0525 4 ' Place a zero in the Last Link field 

: 395 0526 4 : 

3 38 33 i ? noun_node [dbg$l_noun_Link] = 0; 

: 398 0529 4 verb_node [dbg$b_verb_composite] = cancel_module; 
: 399 be 0 4 

: 400 531 END; 

: 401 5 § 

; rr ; END; 

: 404 0535 Cdbg$nmatch (.input_desc, dbg$cs_radix, 1)): 

; 405 0536 BEGIN 
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gn 9g EU vUet (dbg$_needmore) 
dbg$nsyntax_ error (dbg$nnext_word (.input_desc))); 
+ URN sts$k_severe; 


4 ; 7 BIND 
tbe DBGSCS_OVERRIDE = UPLIT BYTE (8, OVERRIDE"); 
09 re verb_node([dbg$b_verb_composite] = cancel_radix; 
tg : Look for the / 
6 if dbgSnmatch (.input_desc, dbg$cs_slash, 1) 
ré BEGIN 
$8 } Look for ‘override’ 
20 if NOT dbgfinmatch (.input_desc, dbg$cs_override, 1) 
2g BEGIN 
5 smeseoge vect = 
54 (IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
55 THEN 
56 
57 
58 
59 
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61 
6¢ yort_node Cdbg$b_verb_composite] = cancel_radix_override; 
208 END; 
266 Cdbg$nmatch (.input_desc, dbg$cs_scope, 1)] : 
208 gore, nate Cdbg$b_verb_composite] = cancel_scope; 
439 370 ‘ 
re 3) Cdbg$nmatch (.input_desc, dbg$cs_source, 2)] : 
rr 378 verb_node(dbg$b_verb_composite] = cancel_source; 
re ar? ! Check for CANCEL SOURCE/MODULE=modname 
44 4$ IF dbg$nmatch (.input_desc, dbg$cs_slash, 1) 
4s 78 THEN 
448 79 BEGIN 
449 0 LOCAL 
3 1 modnameptr ; 
i ; : dbg$cs_module = UPLIT BYTE (6, "MODULE"); 
$33 3 5 ! Read the string MODULE 
45 5 If NOT dbgSnmatch (.input_desc, dbg$cs_module, 4) 
45 5 THEN 
458 5 BEGIN 
459 5 -message_vect = dopinsyntes error 
460 ; dbg$nnext_word!.input_desc)); 
5 


ooo 


wn 


74g sts$k_severe; 


pace 
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! Read the = sign 
ay dbgSnmatch (.input_desc, dbg$cs_equal, 1) 


BEGIN 

-message_vect = dbg$nsyntax_error( 
ddg$nnext_word!.input_desc)); 

SS sts$k_Severe; 


Sa eh 
PAPAS 

fe] Vlw 
SESS 
SSSSSS2 


LS 
~ 

FSS 
wr 


! Read the module name 


rrr 

~~~ 

vo 
Sess 


oOo 
oo 


IF NOT dbg$nsave_string (.input_desc, 
modnameptr, .message_vect) 


RETURN stsS$k_severe; 
! Convert the module name into an rst pointer 


noun_node(dbg$l_noun_value] = 
dbg$sta_getSourcemod(.modnameptr); 


! If the above routine returns zero then the user has 
! entered an invalid module name. 


IF .moun_node(dbg$l_noun_value] EQL 0 
THEN 


BEGIN 

-message_vect = dbg$nmake_arg_vect( 
dbg$_nosuchmodu, 1, .modnameptr); 

eevee sts$k_severe; 
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06 

ret +4 END ! CANCEL SOURCE/MODULE=modname 
$3) Be ELSE ! the user has just entered CANCEL SOURCE 
33! Oe noun_node(dbg$l_noun_value] = 0; 
508 : END; ! CANCEL SOURCE 
208 Edoginnetch (.input_desc, dbg$cs_trace, 1)] : ! CANCEL TRACE 
39 33 VERB_NODE (DBG$B_VERB_COMPOSITE) = EVENTSK_CANCEL_TRACE; 
208 9 RETURN DBGSEVENT_SHOW_CANCEL_SYNTAX (. INPUT DESC, 

09 0 Vv D 

10 1 “MESSAGE _VECT 

11 § ); 

if Z END; 

\ 5 ae “03 7 (,input_desc, dbg$cs_type, 2)] : ' CANCEL TYPE/OVERRIDE 
316 5 BIND 

‘3 3 DBGSCS_OVERRIDE = UPLIT BYTE (8, ‘OVERRIDE'); 

315 50 !' Look for the / 


epee 
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Parse thé CANCEL WINDOW command. 
CDBGSNMATCHY. INPUT_DESC, DBGSCS_WINDOW, 3)): 


; 0 1 : 

; 1 § ; Ay dbg$nmatch (.input_desc, dbg$cs_slash, 1) 

; g 654 4 BEGIN 
; 4 655 4 cmessage.. ve 

: 5 § (IF abgsinatch (.input_desc, dbg$cs_cr, 1) 

; 3 ; 228 gg DOSrmake_org_vect (dbg$_needmore) 

; 3 9 & dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
3 1 4 RETURN sts3k_severe; 

‘ 1 ¢ END; 

; 3 5 ' Look f 4 id 

; ' Look for ‘override’ 

: 535 0666 i 

3 066 If NOT dbg$nmatch (.input_desc, dbg$cs_override, 1) 

3 H 0668 THEN 

; ve} 4 BEGIN 

; 539 0 4 emessage_vect = 

: a79 per} : (IF abgsimatch (.input_desc, dbg$cs_cr, 1) 

: Ste $678 ; dbg$nmake_arg_vect (dbg$_needmore) 

; «56 0674 SE 

3 6544 0675 4 dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
; 545 Bore 4 RETURN stsSk_severe; 

: 546 067 END; 

; 547 0678 

; 548 0679 verb_node Cdbg$b_verb_composite] = cancel_type_override; 
: 389 O68! ~ 

: 551 et) Cdbg$nmatch (.input_desc, dbg$cs_watch, 1)] : |! CANCEL WATCH 
: 26 068 +1 

: 5 0684 VERB_NODE COBGS$B_VERB_COMPOSITE] = ss CANCEL_WATCH; 

; 556 0685 RETURN DBGSEVENT= SHOW_CANCEL_SYNTAX ( = lwey T_DESC, 

3 339 0686 - VERB_NODE 

; 36 0687 , ;MESSAGE_VECT 

: 558 $689 END; ; 

3; 559 0690 

i 

: & 

; 4 
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60 

61 

85 

64 95 B NODECDBGSB VERB_COMPOSITE] = CANCEL WINDOW; 
65 38 DBCESCR PARSE_CANWIND_CMD(.INPUT_DESC, .VERB _NODE); 
$6 9 END; 

6 98 

68 99 

44 Ai Any other CANCEL command constitutes a syntax error. 
71 7 ; COTHERWISE] : ! Syntax error 

7 BEGIN 

7 7 message _vect = 

74 705 ( 

75 7 

76 7 


IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
THEN 


SN 


TES; 


dbgSnmake_arg_vect (dbg$_needmore) 
dbg$nsyntax_error (dbg$nnext_word (.input_desc)) 


RETURN sts$k_severe; 
END; 


RETURN STSS$K_SUCCESS; 
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-TITLE DBGNCANCL 
-IDENT \v04-000\ 
PSECT DBGSPLIT,NOWRT, 
eASCII <3>\ALL\ 
eASCII <5>\BREAK\ 
eASCII <9>\DEVELOPER\ 
eASCII <7>\DISPLAY\ 
eASCII <9>\EXCEPTION\ 
eASCII <4>\MODE\ 
eASCII <6>\MODULE\ 
eASCII <S>\RADIX\ 
eASCII <5S>\SCOPE\ 
ASCII <6>\SOURCE\ 
eASCII <S>\TRACE\ 
eASCII <4>\TYPEN\ 
eASCII <S>\WATCH\ 
eASCII <6>\WINDOW\ 
eASCII <1>\=\ 
eASCII <1>\/\ 
eASCII <1>\,\ 
“BYTE 1, 18 
BYTE 3 
eASCII \ALL\ 
-BYTE 1, 44 
-BYTE 8 
eASCII \OVERRIDE\ 
-BYTE 6 
eASCII \MODULE\ 
BYTE 8 
eASCII \OVERRIDE\ 
L= P.AAA 
EAK= P.AAB 
VELOPER= P.AAC 
SPLAY= P.AAD 
CEPTION= P.AAE 
DE= P.AAF 
DULE= P.AAG 
ADIX= P.AAH 
COPE= P.AAI 
OURCE= P.AAJ 


s-32 V4.0-74 
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PIC,0 


os ANCL 
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PV —-wom4 


WRLC MO~woOwo>yr 


oO 
fo) 


VESTA SSSS—SSSss 
NMO—FOO—fr eT 


-PSECT 
-ENTRY 


71986 92:47: 


15 AX-11 Bliss-32 V4.0 33. 
09 DEBUG. SRC DBGNCANCL - -B3 1 


P.AAK 
L 


pacsev vent _SHOW_CANCEL_ SYNTAX 
DBGSEVENT = “SHOW CANCEL_ SEMANTICS 
DBGSEVENT-CANCEL_ALL 
DBGSRST_SETSCOPE 
DBGSR ST CANHOD « DBGSNSAVE_STRING 
DBGSIS_TT_E 

DBGS$G eT. TERPR 
PecsseT “MOD POEF 
DBGSNGET_ TRANS RADIX 

NMATCH 


DBGSSCR "EXECUTE CANQIND 
In as 


DBGSSET~ $F 
DBGSNSYATAX” ERROR 
DBGSNNEXT_WORD, DBGSNPARSE ADDRESS 
DBGSNSAVE-DECIMAL_ INTEGER 
SNMAKE~ARG_VEC 

DBG$GB_RADIX “basset DEVELOPER 

YP, DBG$GO_GBLLNGTH 
DBGSGLDFL 1rve »DBGSCR DFLTLENG 
DBG$ AF RAME 


iB SRESIGNAL 
DBGS$GL_CONTEXT 
DBGSCODE,NOWRT, SHR, PIC,0 


DagSSCR ifn ig ~CANDISP_CMD 


“pe 


Mae fae CANCEL, Save R2,R3,R4,R5,R6,R7,- : 0252 


Ppe eae E_ARG_VECT, R10 
DBGSNSAVE ~STRIN NG, 9 


DBGSGET_TEMPMEM 
DBGSNMATCH 

pBescs SLASH. R6 
#4, SP 


#1, DBGSGET_TEMPMEM 
RO, NOUN NO fi 

N RODE , “8(R3) 
DBGSCS_ALL 

R 


E 


Oe 
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yb e000 1 =300 71382 94:35:48 DEBUG. SRCIDBGNCANCL .B3 31 7 ” i 
67 F O3F CALLS #3, DEGSNMATCH ; 
1 C 4 CMPLD, @ : 
4 BNEQ ; 
01 «A3 1 3 4 MOVB = #1: 1(R3) : 0352 
0287 1 00048 BRW 43$ > 034 
1 pd 4E 18: PUSHL #1 : 0355 
AS a6 9F 0005 PUSHAB DBG$CS_BREAK : 
52 OD PUSHL R : 
67 Fe 0 CALLS #3, DEGSNMATCH : 
01 g D1 000 CMPL =SséRO, @ : 
01 AB 0 26 Soap oOe O82, 1ER3) * 0357 
o2ne i ea BRW $86 : O30 
09 po 0064 2$: PUSHL #9 > 0364 
AB AG OOF 0066 PUSHAB DBG$CS_DEVELOPER ; 
52 DD 0006 PUSHL 3 
67 g FB 00068 CALLS #3, DBGSNMATCH : 
01 D1 0065 CMPL sR, #1 ; 
6B if 00 BNEG ; 
01 «a3 11 90 0007 MOVB #17, 1(R3) : 036 
55 08 a3 9E 0007 MOV g(r), LINK : 037 
01 oD 90078 PUSHL #1 : 037 
04 Ad 9F 0007D PUSHAB DBGSCS_CR ; 
52 DD 00080 PUSHL R : 
67 Q FB 0082 CALLS #3, DBGSNMATCH : 
52 0 €8 0008 BLBS : 
OC AC DD 00088 3s: PUSHL MESSAGE_VECT : 0377 
14 BB 00088 PUSHR #*M<R2,R4> ; 0376 
000000006 00 03 FB 00080 CALLS #3, DBGSNSAVE_DECIMAL_INTEGER ; 
™ 0289 §9 Spoor oS ma ; 
64 DS OOO9A 4$: TSTL | (NOUN_NODE) ; 0381, 
05 19 0009C BLSS ; 
1F 64 01 90096 CMPL § (NOUN_NODE), #31 > 0382) 
09 15 OOOA1 BLE ; 
00028248 af bp OO0A3 5$: PUSHL #164424 > 0385 | 
023A 31 0009 BRW : 
A4 9E OOOAC 68: MOVAB &8(R4), LINK > 0389 | 
01 DD 00080 PUSHL @# : 0390. 
A6 9F 0008 PUSHAB DBGSCS_COMMA ; 
52 0D 0008 PUSHL R : | 
9 FB 008 CALLS #3, DEGSNMATCH : 
0 €8 OOOBA BLBS RO. 7$ : 
01 BD 08D PUSHL #1 : 0393 
A6 9F OOOBF PUSHAB DBGSCS_CR : | 
52 DD O0Ce PUSHL R : 
0 FB OC CALLS #3, DBGSNMATCH ; 
50 5 0C7 BLBS RO. 8$ ; 
O21e 31 CA BRW 40$ ; 0396 
4 DD 000CD 78: PUSHL #4 + 0405 
.*% CF CALLS #1, DBGSGET_TEMPMEM ; | 
0 pO 0000 MOVL RO, ; 
4 p 0D MOVL NOUN_NODE, (LINK) : 0406 | 
Ag Op BRB > 0374 
t D4 OOODA 8S: CLRL = (LINK) ; O61 
6 11 0000¢ BRB 10$ > 0347 
03 DD OOODE 9S: PUSHL @# : 0418 


————————___—_—_—_—— — 
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Ries 1 =30071 38% 9}: 7: DEBUG.SRCJDBGNCANCL.B32;1 9 3° 
BS A6 SF OODE PUSHAB DBGSCS_DISPLAY ; 
DD O00E PUSHL R : 
7 Fe E CALLS #3, DEGSNMATCH : 
1 D E CMPL ss, @ : 
F if £B BNEO si 108 : 
01 «AB 29 ED MOVB R ) : 04 0 
p 8B Ft SHR AY + 0421 
000000006 00 FB F CALLS "2 <DBGSSCR. PARSE_CANDISP_CMD : 
6 1 FA BRB § t 0347) 
1 po oF 10$:  PUSHL Hi + 0427 
BD Ab OF OOOF PUSHAB DBGS$CS_EXCEPTION : 
DD 001 PUSHL R : 
67 FB 1 CALLS #3, DBGSNMATCH : 
01 0 01 001 CMPL #1 : 
16 12 001 BNEQ 118 ; | 
01 0D 00108 PUSHL #1 + 0432 
AS Ab 9F 0010D PUSHAB DBG$CS_BREAK : 
52 DD 0011 PUSHL R : | 
67 Q FB 011 CALLS , DBGSNMATCH : 
43 0 : 011 BLBC ; 
01 «Ad 04 90 00118 MOVB 1(R3) + 0446 
06 A3 7C O0011C CLROQ tas) : 0452 
76 11 dori BRB : 0347) 
01 DD 00121 11$:  — PUSHL ne > 0455 
C7 Ab OF 00123 PUSHAB DBG$CS_MODE ; | 
DD 001 6 PUSHL R : | 
67 FB 001 CALLS #3, DBGSNMATCH ; | 
01 0 pi 00128 CMPL =s RO, #1 ; 
06 12 0012E BNEQ si : 
01 «AB 05 90 00130 MOVB = #5,_:1(R?3) : 0457) 
61 11 001 128 BRB 19§ ; 0347 
04 0D 01 13$ PUSHL #4 + 0460 | 
CC =A6 OF 001 PUSHAB DBGS$CS_MODULE : | 
52 DD 00138 PUSHL : | 
67 : FB 0013D CALLS #3, DBGSNMATCH : 
01 0 pI 9140 CMPL a : 
54 12 0014 BNEG 208 : 
1 DD 00145 PUSHL #1 + 0465 
0044 8F BB 00147 PUSHR #*M<R2.R ; 
67 3 FB 0148 CALLS #3, ReGSMATCH : 
13 0€ O14 BLBC = RO. «168 ; 
01 DD 001 PUSHL @ + 0471 
06 Ab 9F 001 PUS DBGSCS_ALL : 
DD 001 6 PUSH ; 
67 FB 1 CALLS BGSNMATCH : 
64 f 158 14$: BLBC nd. : | 
01 «AB : 9 1 MOVB (R3) : 0483 
D 1100162 15$: BRB 4 > 046 
OC AC DD 00164 16$: PUSHL ESSA E yect + 0504 | 
14 BB 00167 PUSHR gscR : 0503 | 
69 ; FB 169 CALLS ‘ AS. DAGSNSAVE, STRING ; | 
3 5 16¢ BLBS ; 
o18F 631 16 BRW % $ ; 
1 DD 00172 178:  PUSHL # : 0511 
OA Ab 9F 00174 PUSHAB DBGSCS_COMMA : 
3 DD 00177 PUSHL : 
67 FB 00179 CALLS #3, DBGSNMATCH ; 
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voce 1eree=h 88 5:75:08 = RENE Bhi sssdeckne en ess. 1 g 3) 
11 50 €9 0017¢ BLBC 18$ : 
55 08 A&G SE 0017 MOV Bcks), LINK : 0518 
4 DD 001 PUSHL + 0519. 
$8 } FB 001 CALLS DBGSGET TEMPMEM : 
4 D0 001 MOVL Ad: NOBE : 
65 4 p 1 MOVL NOUN nNNODE™ (LINK) : 520 
D4 1 BRB 16 : 04 Ly 
08 AS D4 00190 188: CLRL a8 NODE) : 0527, 
01 «a3 06 0 0019 MOVE #6 (R3 t 0529) 
48 1100197 19$: BRB 24$ + 0347) 
01 po 199 20$: | PUSHL #1 : 0535. 
D3 «AG OOF «00198 PUSHAB DBGSCS_RADIX : | 
DD 0019 PUSHL R : 
7 FB 1A CALLS #3, DBGSNMATCH 3 
1 D1 OO1A CMPL 7 : 
6 fs 1A BNEG 2 ; 
01 =A3 14 90 001 MOVB #20, 1(R3) ; 0540) 
gh DD 1AC PUSHL 3 0544) 
0044 8F BB OOIA PUSHR #*M<R2,R6> F | 
67 03 FB 001B CALLS #3, DBGSNMATCH : 
29 6 E9 0018 LBC = «RO. 24S : | 
01 0D 00188 PUSHL # ; 0550. 
OC Ab 9F OO1BA PUSHAB DBGSCS_OVERRIDE : 
52 DD 00180 PUSHL R ; 
67 0 FB 01BF CALLS #3, DBGSNMATCH : 
03 50 ice 21$:  BLBS 22$ ; | 
0108 31 9oi¢ BRW F | 
01 «a3 15 90 001CB8 228:  mOovB #21, 1(R3) ; 0562 
13 11 O01CC BRB 24$ : 0347) 
01 oD OO1cE 23$:  PUSHL #1 + 0566 
D9 «Ab OF 0010 PUSHAB DBG$CS_SCOPE ; 
52 DD 0010 PUSHL R ; | 
67 Q FB 001D CALLS #3, DBGSNMATCH F 
01 0 p1 00108 CMPL a ; 
06 12 00108 BNEG 2 : 
01 «AB 08 90 001DD MOVB #8, 1(R3) ; 0568 | 
6D 11 OO1E1 248: BRB 30$ + 0347 
02 oD IES S$:  PUSHL 2. : 0571. 
DF AG OF OOTE PUSHAB DBG$CS_SOURCE : 
52 DD O18 PUSHL R ; 
67 g FB OO1EA CALLS #3, DBGSNMATCH F 
01 Dt OO1ED CMPL a) : | 
60 fs 1F BNEG = 31 : 
01 «AB 10 90 OO1F MOVB #16, 1(R3) : 0573 
1 DD OO1F PUSHL #1 : 057 
0044 8F BB OOTF PUSHR omc? R6> ; 
67 ; FB 1FC CALLS a3. DBGSNMATCH : 
4C ES OO1FF BLBC ; | 
4 DD PUSHL : 0587 | 
15 Ab OF PUSHAB DBGSCS_MODULE F 
52 DD 7 PUSHL ; 
67 Q F CALLS #3, DBGSNMATCH : 
OA E C LBC » 26$ : 
01 oD F PUSHL : 0597 
FE Ab 9F 00011 PUSHAB DBGS$CS_EQUAL : 
3 DD 00214 PUSHL R : 
67 FB 00216 CALLS #3, DBGSNMATCH . : 
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1 
1 
03 50 €8 00219 268:  BLBS RO, 27$ 
00cc 5 1¢ BRW 4 
o¢ AC bb 1f 27%:  PUSHL MESSAGE _VECT 
6 AE OF PUSHAB MODNAMEPTR 
52 DD PUSHL 
69 Q FB CALLS #3, DBGSNSAVE_STRING 
3 5 A BLES =o 
00 Hy 28$ BUSHEL , DNAMEPTR 
000000006 00 f F CALLS #1, DBGSSTA_GETSOURCEMOD 
64 9 p ; nov. RO, (NOUN_NODE) 
6— DD 8 PUSHL MODNAMEPTR 
4 DD 0024 PUSHL # 
00028168 8F DD 0024 PUSHL #164328 
6A 03 FB 00 4 CALLS #3, DBGSNMAKE_ARG_VECT 
OOAF 31 00248 BRW 
64 D4 00 4E 29$: CLRL  (NOUN_NODE) 
F 11 00250 30$: RB 37$ 
01 DD 00 52 31$:  PUSHL #1 
E6 Ab OF 00254 PUSHAB DBG$CS_TRACE 
3 DD 00257 PUSHL 
67 FB 00259 CALLS #3, DBGSNMATCH 
01 50 D1 0025¢ CMPL =O. #1 
06 ff 025F BNEG = 3 
01 = A3 09 9 00 61 MOVB = #9,,_:1(R3) 
41 11 00265 BRB 35$ 
02 0D 00267 32$:  PUSHL #2 
EC A6 9F 00269 PUSHAB DBG$CS_TYPE 
52 DD 0026C PUSHL R 
67 03 FB 00 oF CALLS #3, DBGSNMATCH 
01 50 D1 00271 CMPL =sRO. #1 
iF 12 00274 BNEG  34$ 
1 DD 00276 PUSHL #1 
0044 8F 8B 00278 PUSHR #*M<R2,R6> 
67 3 FB 027¢ CALLS #3, DBGSNMATCH 
51 0 €9 0027F BLBC =_« RO. 38S 
01 bp 0282 PUSHL 
1¢ AG OF 00 84 PUSHAB DBGSCS_OVERRIDE 
52 DD 00287 PUSHL R 
67 : FB 0 89 CALLS #3, DEGSNMATCH 
44 0 8C BLBC = RO. -38$ 
01 «AB Op 0 0028F MOVB is. 1(R3) 
° 11 93 338: BRB 43 
01 oD 00095 34$:  PUSHL #1 
Fl A6 9F 00297 PUSHAB DBGSCS_WATCH 
52 DD O029A PUSHL 
? Q F 9C CALLS #3, DBGSNMATLi# 
1 D OF CMPL =soRO, #1 
11 (1 he BNEO 
01 «AB 0E 9 A MOVB #14, 1(R3) 
OC AC DD OO2A8 35$:  PUSHL MESSAGE VECT 
O¢ BB O02AB PUSHR #*M<R2,R3> 
000000006 00 0 F AD CALLS #3, DBGSEVENT_SHOW_CANCEL_SYNTAX 
03 0D BS 36$ PUSHL #3 
fF? Ad OF 0028 PUSHAB DBGS$CS_WINDOW 
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DD 002BA PUSHL R 
? F BC FALLS #3, DEGSNMATCH 
; r 9D 05t0 ened | BS 
pis he 2 op ef PUSHR £8, NORD 
000000006 00 ; Fe CA CALLS DBGSSCR_PARSE_CANWIND_CMD 
1 D1 37$: BRB 43$ 
1 po D3 BS: PUSHL #1 
046 Ab 9F 00205 PUSHAB DBGSCS_CR 
52 DD 002b6 PUSHL R 
6? 4 DA CALLS #5, DBGSNMATCH 
E DD LBC 
00028000 BF DD 00260 PUSHL #16404 
6A 01 4 0 33 39$: CALLS #1 DBGSNMAKE _ARG_VECT 
32 ES A 
000000006 00 g FB OOZED CALLS #1, DBGSNNEXT_WORD 
0 DD 0024 PUSHL RO 
000000006 00 01 FB O2F6 CALLS #1, DBGSNSYNTAX_ERROR 
oC BC 50 DO OO2FD 41$:  MOVL RO. @MESSAGE_VECT 
50 04 00 00301 42$: MOVL #4. RO 
04 00304 RET 
50 01 00 00305 43$:  MOVL #1, RO 
04 00308 RET 


; Routine Size: 777 bytes, Routine Base: DBGSCODE + 0000 
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GLOBAL ROUTINE DBGSNEXECUTE_CANCEL (VERB_NODE, MESSAGE_VECT) = 


i IMPLICIT INPUTS: 


+e 
FUNCTIONAL DESCRIPTION: 


This routine uses the command execution yee constructed by the parse 
network as input and performs the semantic actions associated with 

the given input corresponding to the CANCEL xxx command. If the command 
cannot be executed, a message argument vector is constructed and returned. 


i FORMAL PARAMETERS: 


VERB_NODE - A longword containing the address of the head node 
of the command execution tree. This corresponds to 
the veb node. 


MESSAGE _VECT - The address of a longword to contain the address of 


a standard message argument vector upon detection of 
errors. 


The Linked List command execution tree pointed to by verb_node. 


! IMPLICIT OUTPUTS: 


On failure, a message argument vector is constructed and returned. 


i ROUTINE VALUE: 


An unsigned integer longword completion code 


i COMPLETION CODES: 


STS$K_SUCCESS (1) - Success. Command executed. 


STSSK_SEVERE (4) - Failure. Command not executed. Message argument 
vector constructed and returned. 


i SIDE EFFECTS: 


Various semantic actions corresponding to the CANCEL xxx command are 
performed. 


BEGIN 


P 
VERB_NODE: REF DBGSVERB_NODE; ! Pointer to command Verb Node 


LOCAL 
NOUN_NODE: REF DBGSNOUN_NODE, 
ADDR-EXP_DESC 
ADDRESS: “VECTOR (2), 

TYPE; 


Pointer to @ command Noun Node 
Address expression descriptor 
Address and bit offset | 

Type of AED described object 


A ci tt tlt lll. 


7 


eecance 
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' Override length 


; 647 777 
ote a Recover the noun node 
$3) g ; NOUN_NODE = .VERB_NODE CDBGSL_VERB_OBJECT_PTRI; 
6 7 
658 f § } Perform the indicated action base on the verb composite 
$23 $7 5 CASE... VERB_NODECDBGSB_VERB_COMPOSITE] FROM CANCEL_MINIMUM TO CANCEL_MAXIMUM OF 
657 07 : 
658 of 4 
659 7 ! Execute the CANCEL ALL command. 
ee 0791 CANCEL _ALLJ 
66¢ 079¢ BEGIN 
66 079 LOCAL 
664 0794 SCOPE_LIST, 
665 0795 DUMMY; 
666 0796 
667 0797 ! Just cancel everything in sight 
668 0798 : 
669 0799 scope_list = 0; 
670 | 0800 dbg$gl_context Cdbg$k_all] = true; 
671 0801 | 
of et DBGSEVENT_CANCEL_ALL (); 
dbg$runframe Cdbg$v_trace_all] = false; ! For next two calls 
= ' Exception break 
676 0806 dbg$set_mod_def (); ' Set mode defaults 
677 0807 dbg$set_stp_def (); ' Set step defaults 
678 0808 dbg$rst_setscope (scope_list, dummy); ! Scopes (new debugger) 
679 0809 dbg$gl_gbltyp = - A } Override type 
: : 


ofltt = dscSk_dt e_l; ! Default type 
abgsgu_df tLeng Ay © tere cos i Default length 


Ccancel_ break] : : ! CANCEL BREAK <ADDR_EXP> 
RETORN DBGSEVENT_SHOW_CANCEL_SEMANTICS (7VERB_NODE 
, MESSAGE _vECT 


; Execute the CANCEL DEVELOPER 0, 1, ..., m command. Cancel all bits 
! in DBGSGL_DEVELOPER indicated on the command. If no bits are speci- 
! fied, clear all developer bits. 


1 

! 

' 

i] 

CCANCEL_DEVELOPER): 
BEGIN 


NOUN_NODE = .VERB_NODECOBGS$L_VERB_OBJECT ts |: 
IF .ROUN_NODE EQL~O THEN DBGSGL_DEVELOPER = 0; 
WHILE NOUN NODE NEQ 0 DO 


DBGSGL_DEVELOPERL .NOUN_NODECDBG$L_NOUN_ VALUE) = FALSE; 
NOUN, NODE = .NOUN_NODECDBGSL_NOUN“LINKI; 
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END; 


Execute the CANCEL DISPLAY command. 


CCANCEL_ DISPLAY): 
DBGSSCR_EXECUTE_CANDISP_CMD(.VERB_NODE); 


Execute the CANCEL EXCEPTION BREAK command. 


CCANCEL EXCEPTION_BREAK): 
BEGIN 
DBGSGB_RESIGNAL = TR 


AX-11 BL 
DEBUG.SR 


c§ 
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UE; 
he DBGSEVENT_SHOW_CANCEL_SEMANTICS(. ¥ERB_NODE, .MESSAGE_VECT); 


Execute the CANCEL MODE command. 
CCANCEL_MODE): 

BEGIN 
dbg$b_radix_output] = 


dbg$gb_radix 
dbasap radix(dbg$b_radix_output_over] = 
— ET_MOD_DEF{); 


dbgssb-rad!xtdogsb-rad!s-output = ys hymen 
nget_trans_ra 
. dbgSk. default; 


Ccancel_module) : 
BEGIN 


Module names are stored away as counted strings 


LOCAL 


' CANCEL MODULE or CANCEL MODULE/ALL 


NAME_BUFF : REF VECTOR C,BYTE]; ! Module name buffer 


wile -Noun_node NEQA 0 
BEGIN 


Retrieve the name buffer and call the symbol table 


buff = .noun_node (dbg$l_noun yalue); 
TJ, .name_buff [0)) 


name 
IF NOT dbg$rst_canmod (name_buff [ 
THEN 

BEGIN 


-message_vect = dbg$nmake_arg_vect (dbg$_nosuchmodu, 
name_buf f (0]); 


RETURN sts$k_severe; 
END; 


Obtain the next noun node 
noun_node = .noun_node [dbg$l_noun_| ink); 


f oe default); 
ix(dbg$k_default); 
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END; ! End of Loop 
END; 
Ccancel_module_all] : 
BEGIN 
lahat (0, 0); 
END; 


Ccancel_radix] : 


dbg$gb_radix 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGNCANCL .B32;1 


dbg$gb_ =Fedi xt dbase radix Sot ge Py dhgsoget. trans MNCL: 


dbg$b_radix_output) 


$n 
gbgsab. radix(dbg$b_radix_output_ fad. getter default; 


Ccancel_radix_override): 
dbg$gb_ radixtdbg$b. radix_output_over] = dbg$k_default; 
Ccancel_scope]) : 
BEGIN 
LOCAL 
DUMMY, 
SCOPE_LIST; 
scope_list = 0; 
+ rSt_setscope (scope_list, dummy); 
! CANCEL SOURCEC/MODULE=modname] 
Ok LO LO AE PON, ON POET 


Ccancel source) : 


Ccancel_trace) : ! CANCEL TRACE <ADDR_EXP> 
RETORN DBGSEVENT_ SHOW_ CANCEL_SEMANTICS ~ “MESSAGE. VECT 


Execute the CANCEL TYPE/OVERRIDE command. 
CCANCEL JT TYPE_OVERRIDE): 


DBG GL _GBLTYP = -1; 
DBGSGu_ GBLLNGTH = 6; 


' Execute the CANCEL WATCH <addr-expr> command. 


tCANCEL WATCH): 
RETORN DBGSEVENT_SHOW_CANCEL_SEMANTICS (.VERB_NODE 
MESSAGE _VECT 


Execute the CANCEL WINDOW command. 


trang radix 


$k_ default); 
g$k_default); 
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: 818 0948 CCANCEL_WINDOW): 

; 19 0986 DBGSSCR_EXECUTE_CANWIND_CMD(.VERB_NODE); 

; 821 951 

: § 8326 Any other CASE index constitutes and internal DEBUG error. 
: B24 0954 {INRANGE ,OUTRANGE): 

; 5 0939 $DBG_ERROR( *DBGNCANCL\NEXECUTE_CANCEL"); 

; 8 ; 0387 TES; 

: 8 9 $989 RETURN STSS$K_SUCCESS; 

: 0 0960 

; «831 0961 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


45 58 45 GE SC 4C 43 GE 41 43 4E 47 42 44 19 00084 P.AAX: ASCII <25>\DBGNCANCL\<92>\NEXECUTE_CANCEL\ : 
4C 45 43 GE 41 463 SF 45 54 55 43 00093 F 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DEGSNEXECUTE CANCEL, Save R2.R3.R4.R5.R6,- ; 0720 
5B 000000006 00 9€ 00002 MOVAB DBGSGW_GBLLNGTH, R11 : 
cB 990000006 00 9€ 00009 MOVAB DBGS$GL : 
59 000000006 00 i 00010 MOVAB DBGS$RST_SETSCOPE, R9 : 
58 00000006 00 9€ 00017 MOVAB DBGSSET“M ‘ : 
57 00000000G 00 9€ OOTE MOVAB BG$GB_RESIGNAL, R7 ; 
8 00000006 00 9€ 000 MOVAB DBGSNGET_TRANS_RADIX, R6 3 
55 000000006 00 9€E 000 : HOVAB DBGSGB RADIX, R5 : 
5E 18 C2 000 SUBL2 #24, SP ; 
3 04 AC DO 00036 MOVL _- VERB_NODE, : 0780 
5 08 A 8 Bo034 MOVL 8(R2), NOUN_NODE 3 
14 01 01 Ad &8F 000 : CASEB 1(R2). #1, #20 : 0785 
OOAC 002A 0144 004 0043 1$: <WORD 3$-1$,- : 
0124 0102 00cc 00B2 0048 3$-1§,- : 
gh 002A 002A 0144 005 $-1$,- ; 
Bis BR Sea RAR BREE Hate : 
FF booee 198-18" : 
14$-1$.- ; 
19$-1$.- ; 
3$-1$,- : 
$-1$,- : 
$-1$,- 3 
$-1$,- 3 
1$-1§,- : 
et ha : 
bs-18.- ; 
4$-1$,- : 
7$-1$.- : 


16 24 
-Sep- 2:37:15 AX-11 Bliss-32 V4.0-74 Page 
voce oo 1$-Se0-19 ¢ 93335508 DEBUG. SRCJDBGNCANCL .B32;1 (4) 
248-18, : 
6-15. ; 
PUSHAD PLAX’ + 0955 
mn ge : 
000000006 00 eee 3 re 0078 CALLS #3, LIBSSIGNAL 
1 M bose 3$: er RL oF OPE LIST ; 9799 
ots BB 0087 BISB2 ie. DBGSGL_CONTEXT+1 i 9800 
aitdditt toa ts § ig $08 CALL #0, DBGSEVENT CANCEL ALL : ¢ 
80000006 09 Ad 00098 BICB2 #4, DBGSRUNFRAME+ : 0804 
eaten: 9 ; $8 itt MOVE i. DBGSGB RESIGNAL ; 0805 
0 FB O009F CALL ‘ _MOD_ ¢ 9606 
000000006 85 0 FB a1 CALLS #0. DBGSSET-STP DEF i 9807 
PE_LIST : 
nl raed ao 
6A 01 CE 00081 BLT : 9808 
SE Bo Goss = Row aaebucSet prt : oer 
Natddiitts 80 04 BO 000BD MOVW #4. DBGSGW~DFLTLENG : 0812 
ty Oho booce nov (R2), NOUN_NODE : 0827 
53 08 A2 00 900¢6 4$: OVI 8(R2), z : 9827 
00000006 86 ie booee CLRL  DBGSGL_DEVELOPER jae 
" o¢ D5 90002 5$: iste NOUN_NODE ; 
a > : 0831 
), DBGSGL_DEVELOPER, 6$ ; 
00 ono000006 c] 65 Gnmbe 4, BBCE yy ne ggg : gan 
= fe 0° boors sie BRB gS " : 0829 
DD OO0ES 7S: PUSHL  R2 ; 
000000006 00 Qi FB OO0E6 a CALLS ", DBGSSCR_EXECUTE_CANDISP_CMD Fad 
© bo 60 : MOVB #1, DBG$GB_RESIGNAL ; 08 
- 0092 3 tte oi BRW 23$ - : 0849 
Gi 02 SGarh Tot: FUME BT ccenceT_Thans_maD1 : 
ge 35 si OOOFA MOVB RO, DBG$GB_RADIX = 
6 PP itd CALS #1, DBGSNGET_TRANS_RADIX 
ee 5 50 00102 MOVB RO. DBG$GB_RADIX+1 Plas 
go OAS 01 90 00106 MOVB #1. DBGSGB-RADIX+2 : 0859 
= 83 90 FB 091 A CALLS r F DBGSSET_MOD_DEF 9860 
53 D G010r 138: rst NOUN. NODE ; 0871 
8 is EE MOVL § (NOUN_NODE), NAME_BUFF 0877 
ee 64 9A 0011 MOVZBL (NAME BUFF), =-(SPY : 
” 01 AG OF 8119 PUSHAB 1(NAM BUFF 
FB 0011 CALLS ne, Dg RST_CANMOD 
peeeerers 9 36 EB 1 § BLBS RO. 138 F aaas 
4 DD 001 PUSHL  NAME_BUFF ; 
BF BD OO1SA PUSHY #164328 
ete GSNMAKE_ARG_VECT : 
a oP 93 50 1 ¢ hout +5 OME SeAce UECT™ : 


F 16 

DBGNCANCL 16-Sep-1984 01:37:15 AX-11 Bliss-32 V4.0-74 Page 25 
v04-000 1028007138 93:75:08 DEBUG. SRC JDBGNCANCL B32; 1 * a 
50 04 BO 1% MOVE #4, RO 3; 0884 
53 08 a3 06 13f 13$: MOVE 8<NOUN NODE), NOUN_NODE ; 0890 
cA 11 0014 BRB 2$ : 0871 
; 7C 00145 148: CLRQ (SP) : 0898 

000000006 00 02 #8 00147 CALLS Ke DBGSRST_CANMOD ; 
4D 11 OO14E 95S: RB 25$ > 0785 
1 DD 00150 16$:  PUSHL #1 : 0903 

6 1 FB 1 CALLS #1, DBGSNGET_TRANS_RADIX : 

6 0 90 001 MOVB RO, DBGSGB_RADIX : 
1 0D 00158 PUSHL #1 > 0904 

6 1 F 13A CALLS #1, DBGSNGET_TRANS_RADIX ; 

01 A 0 90 00150 MOVE RO, DBG$GB_RADIX+1 : 
02 AS 91 90 00161 178 MOVB #1. DBG$GB~RADIX+2 : 0909 

6 1) 00163 18s BRB ; 
oc AE D4 00167 198 CLRL SCOPE_LIST + 0917 
é AE 9F OO16A PUSHAB DUMMY : 0918 

10 AE 9E 00160 PUSHAB SCOPE _LIST ; 

69 0 FB 001 : CALLS #2, DBGSRST_SETSCOPE : 
11 0017 BRB § > 0785 
63 DD 00175 20$:  PUSHL (NOUN_NODE) > 0923 

000000006 00 o1 FB 0177 CALLS #1, DBG$SRC_CANCEL_SOURCE ; 
1D 1 Oz BRB 25$ : 0785 
6A 01 CE 00180 218:  MNEGL #1, DBGSGL_GBLTYP > 0935 
68 84 00183 CLRW  DBG$GW_GBLCNGTH > 0936 
16 11 00185 228: BRB : 0785 
08 AC DD 00187 $:  PUSHL MESSAGE_VECT > 0944 
52 DD OO18A PUSHL > 0943 

000000006 00 02 FB 0018¢ CALLS #2, DBGSEVENT_SHOW_CANCEL_SEMANTICS ; 
52 DD $0194 248 PUSHL R2 > 0949 

000000006 00 01 FB 00196 CALLS #1, DBGSSCR_EXECUTE_CANWIND_CMD ; 
50 01 00 0019D 25$: MOVL #1. RO : 0959 
04 001A0 RET : 0961 


; Routine Size: 417 bytes, Routine Base: DBGSCODE + 0309 


He 3433 1 
83 0963 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSPLIT 158 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSCODE 1194 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 


Library Statistics 


bape ANCL 18-5¢ =300" 1986 9}: 753) AX-11 OL igsnse V4.0-74 | Page (3? 


-Sep-1 DEBUG. SRC JDBGNCANCL .B32;1 
; eoqucsee 5y7Gh0(§ scccesss Pages Processing 
: File Total Loaded Percent Mapped Time 
: S5$DUA 18)L18. 18619 100 :01.8 
; tBuG. 08/5 staotber F 4b 32: 1 3 y 6 : 09:00. 
; $380UA ‘DEBUG. OBJ 154 2 97 0:02.0 
; : (DEBUG. OBJ Doct 18.32 (32;1 
; $DUA28: (DEBUG.08) ]DBGMSS.L32; $a6 ¢ 3 00:8 
; Sceahes irae +38 § 0 ‘5 00:00.3 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:DBGNCANCL/OBJ=0BJ$:DBGNCANCL MSRC$:DBGNCANCL/UPDATE=(ENH$:DBGNCANCL) 


; Size: 1194 cgge,* 158 data bytes 


; Elapsed Time: yt 8 7 
3 Lines/CPU Min: 

; Lovenee/SPu-Hitas bos 

; nee Used: 320 pages 
; Compilation Complete 
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